home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / fullpage.sit / Full-Page Paint / card_3241.txt < prev    next >
Text File  |  1988-11-14  |  7KB  |  322 lines
  1. -- card: 3241 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2715
  5. -- name: Master
  6.  
  7.  
  8. -- part 39 (field)
  9. -- low flags: 01
  10. -- high flags: 0004
  11. -- rect: left=3 top=23 right=202 bottom=142
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Control
  20.  
  21.  
  22. -- part 43 (button)
  23. -- low flags: 00
  24. -- high flags: 2000
  25. -- rect: left=12 top=111 right=145 bottom=47
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 31975 / 31975
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Menus
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   global temp, menu1
  37.   if visible of bkgnd field "toggle" is false then put "true" into menu1
  38.   if visible of bkgnd field "toggle" is true then put "false" into menu1
  39.   if temp is "gone" then show menuBar
  40.   if temp is "gone" then show bkgnd field "toggle"
  41.   if temp is "gone" then put "here" into temp
  42.   if menu1 is "true" then exit mouseUp
  43.   hide menuBar
  44.   hide bkgnd field toggle
  45.   put "gone" into temp
  46. end mouseUp
  47.  
  48.  
  49.  
  50. -- part 44 (button)
  51. -- low flags: 00
  52. -- high flags: 0000
  53. -- rect: left=55 top=115 right=141 bottom=82
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 1014 / 1014
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: Prev
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   go to prev card
  65. end mouseUp
  66.  
  67.  
  68.  
  69. -- part 45 (button)
  70. -- low flags: 00
  71. -- high flags: 0000
  72. -- rect: left=94 top=115 right=141 bottom=121
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 1013 / 1013
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: Next
  81. ----- HyperTalk script -----
  82. on mouseUp
  83.   go to next card
  84. end mouseUp
  85.  
  86.  
  87.  
  88. -- part 49 (field)
  89. -- low flags: 81
  90. -- high flags: 0001
  91. -- rect: left=203 top=24 right=65 bottom=408
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 0
  95. -- font id: 3
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: hidetitle
  100.  
  101.  
  102. -- part 54 (button)
  103. -- low flags: 00
  104. -- high flags: 2000
  105. -- rect: left=58 top=78 right=104 bottom=78
  106. -- title width / last selected line: 65535
  107. -- icon id / first selected line: -15989 / 49547
  108. -- text alignment: 1
  109. -- font id: 0
  110. -- text size: 12
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: Delete
  114. ----- HyperTalk script -----
  115. on mouseUp
  116.   set lockScreen to true
  117.   get the name of this card
  118.   if it contains "Master" then answer "You can't delete the Master cards." with "OK"
  119.   if it is "OK" then exit mouseup
  120.   answer "Are you sure?" with "No Way!" or "Do it"
  121.   if it is "No Way!" then exit mouseUp
  122.   get first line of card field "Control"
  123.   domenu "delete card"
  124.   find it
  125.   domenu "delete card"
  126.   go to first card
  127.   put 0 into it
  128.   repeat the number of cards/2
  129.     add 1 to it
  130.     put it into field "Index Number"
  131.     go to next card
  132.     put it & "B" into field "Index Number"
  133.     go to next card
  134.   end repeat
  135.   set lockScreen to false
  136. end mouseUp
  137.  
  138.  
  139.  
  140. -- part 57 (button)
  141. -- low flags: 00
  142. -- high flags: A000
  143. -- rect: left=90 top=79 right=105 bottom=127
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 17794 / 17794
  146. -- text alignment: 1
  147. -- font id: 0
  148. -- text size: 12
  149. -- style flags: 0
  150. -- line height: 16
  151. -- part name: Print
  152. ----- HyperTalk script -----
  153. on mouseUp
  154.   play boing
  155.   answer "Make your choice..." with "Forget It" or "Chooser" or "Print"
  156.   if it is "Forget It" then exit mouseUp
  157.   if It is "Chooser" then domenu "Chooser"
  158.   if it is "Chooser" then exit mouseUp
  159.   get first word of second line of card field control
  160.   if it is not "Upper" then answer "You must print from the Upper half" with "OK"
  161.   if it is "OK" then exit mouseUp
  162.   show msg
  163.   put "Don't forget to set the dialog box for:"
  164.   wait 3 seconds
  165.   put quote&"Print full size cards,""e&" and ""e& "No space between cards.""e
  166.   wait 3 seconds
  167.   hide bkgnd field "index number"
  168.   hide card button help
  169.   hide card button home
  170.   hide card button delete
  171.   hide card button print
  172.   hide card button new
  173.   hide card button prev
  174.   hide card button next
  175.   hide card button menus
  176.   hide card field control
  177.   open printing with dialog
  178.   push card
  179.   print card
  180.   go to next card
  181.   hide card button help
  182.   hide card button home
  183.   hide card button delete
  184.   hide card button print
  185.   hide card button new
  186.   hide card button prev
  187.   hide card button next
  188.   hide card button menus
  189.   hide card field control
  190.   print card
  191.   pop card
  192.   close printing
  193.   show bkgnd field "Index Number"
  194.   put "All done, Boss."
  195.   wait 3 seconds
  196.   hide msg
  197. end mouseUp
  198.  
  199.  
  200.  
  201. -- part 58 (button)
  202. -- low flags: 00
  203. -- high flags: 0000
  204. -- rect: left=15 top=149 right=172 bottom=44
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 21700 / 21700
  207. -- text alignment: 1
  208. -- font id: 0
  209. -- text size: 12
  210. -- style flags: 0
  211. -- line height: 16
  212. -- part name: Home
  213. ----- HyperTalk script -----
  214. on mouseUp
  215.   go home
  216. end mouseUp
  217.  
  218.  
  219.  
  220. -- part 60 (button)
  221. -- low flags: 00
  222. -- high flags: 2000
  223. -- rect: left=17 top=75 right=107 bottom=42
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 1002 / 1002
  226. -- text alignment: 1
  227. -- font id: 0
  228. -- text size: 12
  229. -- style flags: 0
  230. -- line height: 16
  231. -- part name: New
  232. ----- HyperTalk script -----
  233. on mouseUp
  234.   go to first card
  235.   domenu "Copy Card"
  236.   ask "Name your painting..."
  237.   put it into pictitle
  238.   set lockScreen to true
  239.   if it is "" then exit mouseUp
  240.   go to last card
  241.   domenu "Paste Card"
  242.   put "" into field hidehelp1
  243.   put it into first line of card field "Control"
  244.   put the short date into last line of card field "Control"
  245.   set name of this card to "UserCard"
  246.   push card
  247.   go to second card
  248.   domenu "Copy Card"
  249.   pop card
  250.   domenu "Paste Card"
  251.   put "" into field hidehelp1
  252.   put it into first line of card field "Control"
  253.   put the short date into last line of card field "Control"
  254.   set name of this card to "UserCard"
  255.   go to first card
  256.   put 0 into it
  257.   repeat the number of cards/2
  258.     add 1 to it
  259.     put it into field "Index Number"
  260.     go to next card
  261.     put it & "B" into field "Index Number"
  262.     go to next card
  263.   end repeat
  264.   set lockScreen to false
  265.   find pictitle
  266. end mouseUp
  267.  
  268.  
  269.  
  270. -- part 61 (button)
  271. -- low flags: 00
  272. -- high flags: 2000
  273. -- rect: left=90 top=144 right=179 bottom=125
  274. -- title width / last selected line: 0
  275. -- icon id / first selected line: 1020 / 1020
  276. -- text alignment: 1
  277. -- font id: 0
  278. -- text size: 12
  279. -- style flags: 0
  280. -- line height: 16
  281. -- part name: Help
  282. ----- HyperTalk script -----
  283. on mouseUp
  284.   hide bkgnd field hidehelp1
  285.   hide bkgnd field hidehelp2
  286.   wait until the mouse is down
  287.   show bkgnd field hidehelp1
  288.   show bkgnd field hidehelp2
  289. end mouseUp
  290.  
  291.  
  292.  
  293.  
  294. -- part contents for card part 4
  295. ----- text -----
  296. New Painting
  297. Lower Half
  298.  
  299.  
  300. -- part contents for background part 6
  301. ----- text -----
  302. 1B
  303.  
  304. -- part contents for card part 39
  305. ----- text -----
  306. F.P.P. version 1.0
  307. Lower Half
  308.  
  309.  
  310.  
  311.  
  312.  
  313.  
  314.  
  315.  
  316. 9/20/87
  317.  
  318. -- part contents for background part 7
  319. ----- text -----
  320.  
  321.      This would normally be the second half of a full-page painting.  Take a look at the example painting which follows this one.
  322.